home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / Factor Fun (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  308 b   |  13 lines
  1. 0 print"[147]":poke53280,6:poke53281,0
  2. 1 rem ==================================
  3. 2 rem    commodares problem #52-4 :
  4. 3 rem       factor fun
  5. 4 rem    solution by
  6. 5 rem       dale ickes
  7. 6 rem ==================================
  8. 10 input"factor what number";a
  9. 20 for c=a to 1 step -1
  10. 30 b=a/c: if b=int(b) then print b;
  11. 40 next
  12. 50 print: goto 10
  13.